home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / logique.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  150 b   |  14 lines
  1. program logique;
  2.  
  3. var
  4.     a,b,c,d : integer;
  5.  
  6. begin
  7.  
  8.     a := 10;    b := 3;
  9.     c := a or b ;
  10.     d := a and b ;
  11.     writeln(' c=',c,' d=',d);
  12.  
  13. end;
  14.